home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / util1 / jukbxext.lha / JukeBox-Extensions / prog.main < prev   
Text File  |  1995-08-17  |  1KB  |  85 lines
  1.  
  2.  
  3. tableofcontents = "ram:jb.toc"
  4. trackstoplay = "ram:jb.tracks"
  5.  
  6.  
  7. stop
  8. options results
  9. toc stem name.
  10. bis = name.0 -1
  11. address "REXX"
  12. if (open(tocfile,tableofcontents,"W")) then
  13. do
  14.  address
  15.  do i=1 to bis
  16.  toc i
  17.  toadd.0 = ""
  18.  parse var result toadd.i . . title
  19.  address "REXX"
  20. /* say i" "title */
  21.  writech(tocfile,i" "title""x2c(0))
  22.  address
  23.  end
  24.  address "REXX"
  25.  close(tocfile)
  26.  address
  27.  end
  28. else
  29.  do
  30.  say "Could not create" tabelofcontents 
  31.  exit
  32. end
  33.  
  34. address command "prog-GUI >con:0/0/500/100/Prog-GUI-Error/auto" tableofcontents trackstoplay texts
  35.  
  36. address "REXX"
  37.  
  38. if (open(Tracks,trackstoplay,"R")) then
  39. do i = 1 
  40. num.i = readln(Tracks)
  41. /*say "NUM."i"="num.i*/
  42. if num.i = "" then leave  
  43. end
  44.  
  45. else
  46. do
  47.  
  48. say "Konnte" trackstoplay "nicht öffnen!"
  49. exit
  50. end
  51.  
  52. close(Tracks)
  53.  
  54. address command "delete" trackstoplay tableofcontents "quiet"
  55. address
  56.  
  57. do i = 1 while num.i ~= ""
  58.  
  59. /* Play-Routine */
  60.  
  61. spur = num.i
  62. time = toadd.spur
  63. set track spur
  64. "current time"
  65. base = result
  66. addtime base time
  67. stoptime = result
  68. subtime stoptime "00:01:00"
  69. stoptime = result
  70. "current title"
  71. /*say "Spiele Track "spur" `"result"` von "base" bis "stoptime "("time" lang)"*/
  72.  
  73. play
  74. "wait time" stoptime
  75.  
  76. /* Ende derselben */ 
  77.  
  78. end 
  79.  
  80. stop
  81. exit
  82.  
  83.  
  84.  
  85.